home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / text / edit / tecoc-146.lha / tabort.c < prev    next >
C/C++ Source or Header  |  1991-07-05  |  518b  |  21 lines
  1. /*****************************************************************************
  2.  
  3.     TAbort()
  4.  
  5.     This function cleans up and terminates TECO-C.
  6.  
  7. *****************************************************************************/
  8.  
  9. #include "zport.h"        /* define portability identifiers */
  10. #include "tecoc.h"        /* define general identifiers */
  11.  
  12.  
  13. VVOID TAbort(tstat)        /* terminate TECO-C */
  14. DEFAULT tstat;
  15. {
  16.     DBGFEN(2,"TAbort",NULL);
  17.  
  18.     ClenUp();            /* close files, memory, etc. */
  19.     ZExit(tstat);            /* terminate with given status */
  20. }
  21.